      function [ax,h]=subtitulo(text,fontSize,posVector)
      % This is the version of subtitle that goes below, as opposed to
      % above, a set of graphs 
      if nargin < 3 
          posVector=[.05 .001 .9 .001]; 
      end 
      ax=axes('Units','Normal','Position',posVector,'Visible','off','FontSize',12);
      set(get(ax,'Title'),'Visible','on')
      handle=title(text);
      if (nargout < 2)
        return
      end
      if nargin > 1 
          set(handle,'FontSize',fontSize) 
      end 
      h=get(ax,'Title');